home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
bbsutil
/
125adev.zip
/
AREASEE.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-08-08
|
936b
|
44 lines
defint a-z
type mareatype
mname as string * 60
sec as integer
pvt as string * 1
fpvt as string * 1
fpub as string * 1
nmail as string * 1
ignore as string * 1
fnet as string * 1
end type
declare function pdqvali%(st$)
declare function pdqexist%(st$)
dim ms as mareatype
print "Area Number?"
line input a$
av=pdqvali(a$)
msa$="msgareas.bbs"
if not pdqexist(msa$) then
print msa$" File Not Found."
end 1
end if
open msa$ for random shared as 1 len=68
get #1, av, ms
close 1
print "Area Name: "rtrim$(ms.mname)
print "Area Sec Needed: "str$(ms.sec)
print "Private Allowed?: "ms.pvt
print "Forced Private?: "ms.fpvt
print "Forced Public?: "ms.fpub
print "Netmail Allowed?: "ms.nmail
print "Ignore Scan Flags?: "ms.ignore
print "Forced Netmail?: "ms.fnet
end 0